Mac Mania 1/MacMania 1.toast/Hypercard/HyperCard' More/C-D/CheckWriter/Check Writer/card_4369.txt

Text File | 1987-09-30 | 6.4 KB | 293 lines

-- card: 4369 from stack: in
-- bmap block id: 5579
-- flags: 4000
-- background id: 3629
-- name:


-- part 4 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=246 top=130 right=152 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Marked Checks
----- HyperTalk script -----
on mouseUp
  go to card "print"
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=19 top=211 right=233 bottom=205
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Change Printing Template
----- HyperTalk script -----
on mouseUp
  go to card "Template"
end mouseUp




-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=52 top=250 right=285 bottom=93
-- title width / last selected line: 0
-- icon id / first selected line: 20689 / 20689
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go home
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=177 top=249 right=294 bottom=235
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Last Check
----- HyperTalk script -----
on mouseUp
  visual effect barn door open
  go to last card of bkgnd "Check"
end mouseUp


-- part 9 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=279 top=249 right=294 bottom=341
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First Check
----- HyperTalk script -----
on mouseUp
  visual effect barn door open
  go to first card of bkgnd "Check"
end mouseUp


-- part 11 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=246 top=210 right=232 bottom=418
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go to Check Register
----- HyperTalk script -----
on mouseUp
  go to stack "Check Register"
end mouseUp




-- part 12 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=246 top=184 right=206 bottom=418
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear All Print Buttons
----- HyperTalk script -----
-- mouseUp -- Clear all the "print" boxes.

on mouseUp
  set cursor to 4
  repeat with i = (the number of first card of bkgnd "Check") to the number of cards
    put false into background field  "Print" of card i
  end repeat
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=246 top=157 right=179 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Update Check Register
----- HyperTalk script -----
-- mouseUp -- Post all printed checks into the check register stack.

on mouseUp
  global nbr,date,payTo,for,amount,saveRow
  set lockScreen to true
  go to first card of bkgnd "Check"
  find word true in field "Print"
  if the result is not empty then
    answer "No marked checks."
    go to first card
    exit mouseUp
  end if
  put the number of this card into startNbr
  ask "What is check number of the first check?"
  if it is empty then exit mouseUp -- he cancelled
  put it into nbr
  set cursor to 4
  put zero into count
  put empty into saveRow
  put short name of this stack into stk
  push card
  go to last card of stack "Check Register"
  set lockScreen to false
  set lockScreen to true
  repeat
    pop card
    if field "Date" is not empty then put field "Date" & ", 19" & field "Year" into date
    else put empty into date
    put trim(field "Pay To") into payTo
    put field "For" into for
    put trim(field "Amount") into amount
    push card
    go to last card of stack "Check Register"
    set lockScreen to false
    send postCheck
    set lockScreen to true
    set numberFormat to "0"
    add 1 to nbr
    add 1 to count
    pop card
    go to next card of this bkgnd
    find word true in field "Print"
    if the number of this card is startNbr then exit repeat
    push card
  end repeat
  pop card into it
  go to stack "Check Writer"
  set lockScreen to false
  answer "All done — " & count & " checks entered."
  answer "Clear all print buttons?" with "Cancel" or "OK"
  if it is "OK" then
    send "mouseUp" to button "Clear All Print Buttons"
  end if
end mouseUp

-- trim -- Trim off all the asterisks before we post entries.

function trim s
put s into t
repeat -- trim off big chuncks of asterisks (for speed)
  get offset("**********",t)
  if it is 0 then exit repeat
  delete char it to (it + 9) of t
end repeat
repeat -- trim the rest of 'em
  get offset("*",t)
  if it is 0 then exit repeat
  delete char it of t
end repeat
return t
end trim



-- part 14 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=32 top=182 right=204 bottom=195
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort Checks by Payee
----- HyperTalk script -----
on mouseUp
  sort by bkgnd field "Pay to"
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=105 top=249 right=288 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 2507 / 2507
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go to card "help"
end mouseUp


-- part 18 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=9 top=141 right=174 bottom=216
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Shareware Info
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go to card id 2465
end mouseUp